home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / list224.zip / LISTSERV.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-03-13  |  11KB  |  621 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  10741 bytes  01/29/123  04:30:20pm
  3. '! Code Segment Size  :6818 bytes
  4. '! Data Segment Size  :5739 bytes
  5. '! String Segment Size:3923 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type28
  9.         s0 As String*70
  10.         s70 As String*8
  11.         i78 As Integer
  12.       End Type
  13.  
  14.       Type Type27
  15.         Filler0(1 To 4) As Byte
  16.         w4 As Word
  17.       End Type
  18.  
  19.       Type Type26
  20.         Filler0(1 To 661) As Byte
  21.         w661 As Word
  22.       End Type
  23.  
  24.       Dim b4463(1 To 70) As Byte
  25.       Dim i4533 As Integer
  26.       Dim l4535 As Long
  27.       Dim l4539 As Long
  28.       Dim s4543 As String
  29.       Dim s4547 As String
  30.       Dim s4551 As String
  31.       Dim i4555 As Integer
  32.       Dim t26_4557 As Type26
  33.       Dim mh5223 As MessageHeader
  34.       Dim s5543 As String*70
  35.       Dim t28_5613 As Type28
  36.       Dim l5701 As Long
  37.       Dim l5705 As Long
  38.       Dim i5709 As Integer
  39.       Dim s5711 As String
  40.       Dim s5715 As String
  41.       Dim i5719 As Integer
  42.       Dim i5721 As Integer
  43.       Dim i5723 As Integer
  44.       Dim i5725 As Integer
  45.       Dim i5727 As Integer
  46.       Dim i5729 As Integer
  47.       Dim d5731 As Date
  48.       Dim t5733 As Time
  49.       Dim i5737 As Integer
  50.  
  51.       Dim l65530_ As Long
  52.       Dim i65534_ As Integer
  53.  
  54.       Cls 
  55.       Print "@0F@Listserv "; "v2.24"; " (03/13/95) - by Pete Nelson"
  56.       Print "Terminal One BBS (510) 689-9528"
  57.       Print "Author: pete@terminal-one.com"
  58.       Print
  59.       If Exists("listserv.key") Then
  60.         Open "listserv.key" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  61.         Get 1, 1, b4463 '! 70 bytes
  62.         Print "@0E@Registered to@07@:@0A@ ";
  63.   162   For i4533 = 1 To 70 Step 1
  64.           Print Chr(b4463(i4533) - 120);
  65.         Next
  66.   276   Locate 7, 19
  67.         Print "@0F@|";
  68.         Delay 0.001
  69.         Locate 7, 19
  70.         Print "@0C@T@0F@\";
  71.         Delay 0.001
  72.         Locate 7, 20
  73.         Print "@0C@h@0F@-";
  74.         Delay 0.001
  75.         Locate 7, 21
  76.         Print "@0C@a@0F@/";
  77.         Delay 0.001
  78.         Locate 7, 22
  79.         Print "@0C@n@0F@|";
  80.         Delay 0.001
  81.         Locate 7, 23
  82.         Print "@0C@k@0F@\";
  83.         Delay 0.001
  84.         Locate 7, 24
  85.         Print "@0C@s@0F@-";
  86.         Delay 0.001
  87.         Locate 7, 25
  88.         Print "@0C@ @0F@/";
  89.         Delay 0.001
  90.         Locate 7, 26
  91.         Print "@0C@f@0F@|";
  92.         Delay 0.001
  93.         Locate 7, 27
  94.         Print "@0C@o@0F@\";
  95.         Delay 0.001
  96.         Locate 7, 28
  97.         Print "@0C@r@0F@-";
  98.         Delay 0.001
  99.         Locate 7, 29
  100.         Print "@0C@ @0F@/";
  101.         Delay 0.001
  102.         Locate 7, 30
  103.         Print "@0C@s@0F@|";
  104.         Delay 0.001
  105.         Locate 7, 31
  106.         Print "@0C@u@0F@\";
  107.         Delay 0.001
  108.         Locate 7, 32
  109.         Print "@0C@p@0F@-";
  110.         Delay 0.001
  111.         Locate 7, 33
  112.         Print "@0C@p@0F@/";
  113.         Delay 0.001
  114.         Locate 7, 34
  115.         Print "@0C@o@0F@|";
  116.         Delay 0.001
  117.         Locate 7, 35
  118.         Print "@0C@r@0F@\";
  119.         Delay 0.001
  120.         Locate 7, 36
  121.         Print "@0C@t@0F@-";
  122.         Delay 0.001
  123.         Locate 7, 37
  124.         Print "@0C@i@0F@/";
  125.         Delay 0.001
  126.         Locate 7, 38
  127.         Print "@0C@n@0F@|";
  128.         Delay 0.001
  129.         Locate 7, 39
  130.         Print "@0C@g@0F@\";
  131.         Delay 0.001
  132.         Locate 7, 40
  133.         Print "@0C@ @0F@-";
  134.         Delay 0.001
  135.         Locate 7, 41
  136.         Print "@0C@L@0F@/";
  137.         Delay 0.001
  138.         Locate 7, 42
  139.         Print "@0C@i@0F@|";
  140.         Delay 0.001
  141.         Locate 7, 43
  142.         Print "@0C@s@0F@\";
  143.         Delay 0.001
  144.         Locate 7, 44
  145.         Print "@0C@t@0F@-";
  146.         Delay 0.001
  147.         Locate 7, 45
  148.         Print "@0C@s@0F@/";
  149.         Delay 0.001
  150.         Locate 7, 46
  151.         Print "@0C@e@0F@|";
  152.         Delay 0.001
  153.         Locate 7, 47
  154.         Print "@0C@r@0F@\";
  155.         Delay 0.001
  156.         Locate 7, 48
  157.         Print "@0C@v@0F@-";
  158.         Delay 0.001
  159.         Locate 7, 49
  160.         Print "@0C@!@0F@ ";
  161.         Delay 0.001
  162.         Locate 7, 50
  163.         Print
  164.         Print
  165.         Close 1
  166.       End If
  167.  1060 Delay 1
  168.       i5719 = 0
  169.       i5721 = 0
  170.       i5723 = 0
  171.       i5725 = 0
  172.       i5727 = 0
  173.       i5729 = 0
  174.       CurrentDate d5731
  175.       CurrentTime t5733
  176.       Open "listserv.log" For Append As 9
  177.       Print #9, "* Listserv started on "; FormatDate(d5731, "mm/dd/yy"); " at "; FormatTime(t5733, "hh:mm:ss te"); " *"
  178.       Close 9
  179.       MorePrompt(0)
  180.       If Not Exists("listserv.cfg") Then
  181.         Print
  182.         Print "@0C@You need to create the LISTSERV.CFG file first!"
  183.         Print
  184.       Else
  185.  1231   Open "listserv.cfg" For Input As 1
  186.         Input #1, l4535
  187.         Reset 
  188.         i4555 = t26_4557.w661
  189.         Join l4535
  190.         If Not Exists("listserv.dat") Then
  191.           Print
  192.           Print "@0C@You need to run Listutil to create a list of your mailing lists."
  193.         Else
  194.  1318     Open "listserv.ptr" For Input As 1
  195.           Input #1, l4535
  196.           Reset 
  197.           mh5223.Number = l4535
  198.           Do
  199.  1363       Reset 
  200.             If Not GetNextMessage(mh5223) Then
  201.               GoTo 6431
  202.             End If
  203.  1386       l5701 = 1
  204.             l5705 = 1
  205.             s4543 = mh5223.Subject
  206.             l4539 = mh5223.Number
  207.             mh5223.Subject = UCase(mh5223.Subject)
  208.             mh5223.To = UCase(mh5223.To)
  209.             Do
  210.  1474         Reset 
  211.               If mh5223.To = "LISTSERV" Then
  212.                 If (mh5223.Flags And 512) <> 0 Then
  213.                   Delay 0.001
  214.                   Print "@0C@Skipping message to @0F@LISTSERV@0C@ flagged as deleted @0B@(@07@#@0E@"; mh5223.Number; "@0B@)@0C@..."
  215.                   GoTo 1363
  216.                 End If
  217.  1565           GoSub 5981
  218.               End If
  219.  1571         Open "listserv.dat" For Random As 1 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  220.               Get 1, l5701, t28_5613 '! 80 bytes
  221.               If mh5223.To = t28_5613.s0 Then
  222.                 If (mh5223.Flags And 512) <> 0 Then
  223.                   Delay 0.001
  224.                   Print "@0C@Skipping message to @0F@"; t28_5613.s0; "@0C@ flagged as deleted @0B@(@07@#@0E@"; mh5223.Number; "@0B@)@0C@..."
  225.                   Inc i5723
  226.                   GoTo 1363
  227.                 End If
  228.  1716           If mh5223.Subject = "" Then
  229.                   Delay 0.001
  230.                   Print "@0C@Skipping message with blank subject @0B@(@07@#@0E@"; mh5223.Number; "@0B@)@0C@..."
  231.                   GoTo 1363
  232.                 End If
  233.  1780           If mh5223.Subject = "SUB" Or mh5223.Subject = "SUBSCRIBE" Then
  234.                   If t28_5613.i78 = 1 Or t28_5613.i78 = 2 Or t28_5613.i78 = 5 Then
  235.                     l5705 = 1
  236.                     Open t28_5613.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  237.                     Do
  238.  1910                 Get 2, l5705, s5543 '! 70 bytes
  239.                       If s5543 = mh5223.From Then
  240.                         Delay 0.001
  241.                         Print "@0F@"; s5543; "@0A@ is already subsribed to@0B@ "; t28_5613.s0; "@0A@."
  242.                         GoTo 1363
  243.                       End If
  244.  2002                 Inc l5705
  245.                     Loop Until l5705 > LOF(2)
  246.                     Close 2
  247.                     s5543 = mh5223.From
  248.                     Open t28_5613.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  249.                     Put 2, LOF(2) + 1, s5543 '! 70 bytes
  250.                     Close 2
  251.                     Delay 0.001
  252.                     Print "@0A@Subscribed@0F@ "; mh5223.From; "@0A@ to@0B@ "; t28_5613.s0; "@0A@."
  253.                     Inc i5725
  254.                     If Exists(t28_5613.s70 + ".add") Then
  255.                       Delay 0.001
  256.                       Print "@0D@Sending a thank you response...@0A@"
  257.                       Inc i5721
  258.                       Open "listtmpa.tmp" For Append As 2
  259.                       Open t28_5613.s70 + ".add" For Input As 3
  260.                       Do
  261.  2261                   Input #3, s4551
  262.                         Print #2, s4551
  263.                       Loop Until EOF(3)
  264.                       Print #2, ""
  265.                       Print #2, "-----"
  266.                       Print #2, "Processed with Listserv "; "v2.24"
  267.                       Close 3
  268.                       Close 2
  269.                       mh5223.To = mh5223.From
  270.                       mh5223.From = t28_5613.s0
  271.                       mh5223.Subject = "Thanks for Subscribing!"
  272.                       mh5223.Flags = 3
  273.                       mh5223.Network = ""
  274.                       AddMessage(mh5223, "listtmpa.tmp", "", 1213417543)
  275.                       mh5223.Number = l4539
  276.                       Open "listserv.log" For Append As 9
  277.                       Print #9, "     "; t28_5613.s0; ": sent 1 message"
  278.                       Close 9
  279.                       Kill "listtmpa.tmp"
  280.                     End If
  281.  2507               GoTo 1363
  282.                   End If
  283.  2513             Print "@0F@"; mh5223.From; " @0C@tried to subscribed to closed list@0B@ "; t28_5613.s0
  284.                   Inc i5729
  285.                   If Exists(t28_5613.s70 + ".cls") Then
  286.                     Print "@0C@Sending them a notification message..."
  287.                     Inc i5721
  288.                     Delay 0.001
  289.                     Open "listtmpa.tmp" For Append As 2
  290.                     Open t28_5613.s70 + ".cls" For Input As 3
  291.                     Do
  292.  2656                 Input #3, s4551
  293.                       Print #2, s4551
  294.                     Loop Until EOF(3)
  295.                     Print #2, ""
  296.                     Print #2, "-----"
  297.                     Print #2, "Processed with Listserv "; "v2.24"
  298.                     Close 3
  299.                     Close 2
  300.                     mh5223.To = mh5223.From
  301.                     mh5223.From = t28_5613.s0
  302.                     mh5223.Subject = "Your subscription request"
  303.                     mh5223.Flags = 3
  304.                     mh5223.Network = ""
  305.                     AddMessage(mh5223, "listtmpa.tmp", "", 1213417543)
  306.                     Open "listserv.log" For Append As 9
  307.                     Print #9, "     "; t28_5613.s0; ": sent 1 message"
  308.                     Close 9
  309.                     mh5223.Number = l4539
  310.                     Kill "listtmpa.tmp"
  311.                   End If
  312.  2902             GoTo 1363
  313.                 End If
  314.  2908           If mh5223.Subject = "UNSUBSCRIBE" Or mh5223.Subject = "UNSUB" Then
  315.                   Open t28_5613.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  316.                   s5543 = " "
  317.                   l5705 = 1
  318.                   Do
  319.  3000               Get 2, l5705, s5543 '! 70 bytes
  320.                     s5543 = UCase(s5543)
  321.                     If s5543 = mh5223.From Then
  322.                       s5543 = " "
  323.                       Put 2, l5705, s5543 '! 70 bytes
  324.                       GoTo 3110
  325.                     End If
  326.  3086               Inc l5705
  327.                   Loop Until l5705 > LOF(2)
  328.  3110             Close 2
  329.                   Delay 0.001
  330.                   Print "@0C@Unsubscribed@0F@ "; mh5223.From; "@0C@ from @0B@"; t28_5613.s0; "@0C@."
  331.                   Inc i5727
  332.                   If Exists(t28_5613.s70 + ".drp") Then
  333.                     Delay 0.001
  334.                     Print "@0D@Sending an unsubscription message..."
  335.                     Inc i5721
  336.                     Open "listtmpu.tmp" For Append As 2
  337.                     Open t28_5613.s70 + ".drp" For Input As 3
  338.                     Do
  339.  3273                 Input #3, s4551
  340.                       Print #2, s4551
  341.                     Loop Until EOF(3)
  342.                     Print #2, ""
  343.                     Print #2, "-----"
  344.                     Print #2, "Processed with Listserv "; "v2.24"
  345.                     Close 2
  346.                     Close 3
  347.                     mh5223.To = mh5223.From
  348.                     mh5223.From = t28_5613.s0
  349.                     mh5223.Subject = "Unsubscription Request"
  350.                     mh5223.Flags = 3
  351.                     mh5223.Network = ""
  352.                     AddMessage(mh5223, "listtmpu.tmp", "", 1213417543)
  353.                     Open "listserv.log" For Append As 9
  354.                     Print #9, "     "; t28_5613.s0; ": sent 1 message"
  355.                     Close 9
  356.                     mh5223.Number = l4539
  357.                     Kill "listtmpu.tmp"
  358.                   End If
  359.  3519             GoTo 1363
  360.                 End If
  361.  3525           If t28_5613.i78 = 5 Or t28_5613.i78 = 6 Then
  362.                   If Not Exists(t28_5613.s70 + ".lst") Then
  363.                     Print "@0C@You need to create a @0B@"; t28_5613.s70; ".LST@0C@ for@0F@ "; t28_5613.s0
  364.                   End If
  365.  3623             Open t28_5613.s70 + ".lst" For Input As 5
  366.                   Do
  367.  3655               Input #5, s4551
  368.                     If UCase(Trim(s4551)) = UCase(mh5223.From) Then
  369.                       GoTo 4690
  370.                     End If
  371.  3699             Loop Until EOF(5)
  372.                   Close 5
  373.                   Print "@0F@"; mh5223.From; " @0C@is not allowed to post on @0B@"; t28_5613.s0
  374.                   Inc i5729
  375.                   If Exists(t28_5613.s70 + ".not") Then
  376.                     Open "listtmpu.tmp" For Append As 2
  377.                     Open t28_5613.s70 + ".not" For Input As 3
  378.                     Do
  379.  3835                 Input #3, s4551
  380.                       Print #2, s4551
  381.                     Loop Until EOF(3)
  382.                     Print #2, ""
  383.                     Print #2, "-----"
  384.                     Print #2, "Processed wtih Listserv v2.24 for Wildcat v4"
  385.                     Close 2
  386.                     Close 3
  387.                     mh5223.To = mh5223.From
  388.                     mh5223.From = t28_5613.s0
  389.                     mh5223.FromId = 0
  390.                     mh5223.Subject = "Your message to " + t28_5613.s0
  391.                     mh5223.Flags = 3
  392.                     mh5223.Network = ""
  393.                     AddMessage(mh5223, "listtmpu.tmp", "", 1213417543)
  394.                     Open "listserv.log" For Append As 9
  395.                     Print #9, "     "; t28_5613.s0; ": sent 1 message"
  396.                     Close 9
  397.                     Kill "listtmpu.tmp"
  398.                     mh5223.Number = l4539
  399.                     Print "@0C@Sending them a notification message..."
  400.                     Inc i5729
  401.                     Delay 0.001
  402.                   End If
  403.  4115             GoTo 1363
  404.                 End If
  405.  4121           If t28_5613.i78 = 2 Or t28_5613.i78 = 4 Then
  406.                   Open t28_5613.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  407.                   Do
  408.  4187               Get 2, l5705, s5543 '! 70 bytes
  409.                     If s5543 = mh5223.From Then
  410.                       Close 2
  411.                       GoTo 4690
  412.                     End If
  413.  4237               Inc l5705
  414.                   Loop Until l5705 > LOF(2)
  415.                   Close 2
  416.                   Delay 0.001
  417.                   Print "@0C@Skipping @0B@(@07@#@0E@"; mh5223.Number; "@0B@)@0C@.  @0F@"; mh5223.From; "@0C@ is not a subscriber."
  418.                   Inc i5723
  419.                   If Exists(t28_5613.s70 + ".not") Then
  420.                     Open "listtmpu.tmp" For Append As 2
  421.                     Open t28_5613.s70 + ".not" For Input As 3
  422.                     Do
  423.  4404                 Input #3, s4551
  424.                       Print #2, s4551
  425.                     Loop Until EOF(3)
  426.                     Print #2, ""
  427.                     Print #2, "-----"
  428.                     Print #2, "Processed wtih Listserv v2.24 for Wildcat v4"
  429.                     Close 2
  430.                     Close 3
  431.                     mh5223.To = mh5223.From
  432.                     mh5223.From = t28_5613.s0
  433.                     mh5223.FromId = 0
  434.                     mh5223.Subject = "Your message to " + t28_5613.s0
  435.                     mh5223.Flags = 3
  436.                     mh5223.Network = ""
  437.                     AddMessage(mh5223, "listtmpu.tmp", "", 1213417543)
  438.                     Open "listserv.log" For Append As 9
  439.                     Print #9, "     "; t28_5613.s0; ": sent 1 message"
  440.                     Close 9
  441.                     Kill "listtmpu.tmp"
  442.                     mh5223.Number = l4539
  443.                     Print "@0C@Sending them a notification message..."
  444.                     Inc i5721
  445.                     Delay 0.001
  446.                   End If
  447.  4684             GoTo 1363
  448.                 End If
  449.  4690           i5737 = 0
  450.                 Kill "listserv.t2"
  451.                 GetMessageText(mh5223.Number, "listserv.t2")
  452.                 If Exists("listserv.flt") Then
  453.                   Delay 0.001
  454.                   Print "@0D@Checking for lines to filter..."
  455.                   Open "listserv.tmp" For Output As 5
  456.                   Open "listserv.t2" For Input As 6
  457.                   Do
  458.  4793               i5709 = 0
  459.                     Input #6, s5715
  460.                     Open "listserv.flt" For Input As 7
  461.                     Do
  462.  4826                 Input #7, s5711
  463.                       If UCase(s5711) = UCase(s5715) Then
  464.                         i5709 = 1
  465.                       End If
  466.  4862               Loop Until i5709 = 1 Or EOF(7)
  467.                     Close 7
  468.                     If i5709 = 0 Then
  469.                       Print #5, s5715
  470.                     End If
  471.  4912             Loop Until EOF(6)
  472.                   Close 5
  473.                   Close 6
  474.                 Else
  475.  4939             CopyFile("listserv.t2", "listserv.tmp")
  476.                 End If
  477.  4953           If Exists(t28_5613.s70 + ".sig") Then
  478.                   Open "listserv.tmp" For Append As 2
  479.                   Open t28_5613.s70 + ".sig" For Input As 3
  480.                   Do
  481.  5031               Input #3, s4551
  482.                     Print #2, s4551
  483.                   Loop Until EOF(3)
  484.                   Close 2
  485.                   Close 3
  486.                 End If
  487.  5068           Open "listserv.tmp" For Append As 2
  488.                 Print #2, ""
  489.                 Print #2, "-----"
  490.                 Print #2, "Processed wtih Listserv v2.24 for Wildcat v4"
  491.                 Close 2
  492.                 Open t28_5613.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  493.                 l5705 = 1
  494.                 s4547 = mh5223.From
  495.                 Do
  496.  5176             Get 2, l5705, s5543 '! 70 bytes
  497.  5191             Do While s5543 = " "
  498.                     Inc l5705
  499.                     Get 2, l5705, s5543 '! 70 bytes
  500.                     If EOF(2) Then
  501.                       Open "listserv.log" For Append As 9
  502.                       Print #9, "     "; t28_5613.s0; ": sent "; i5737; " messages"
  503.                       Close 9
  504.                       GoTo 1363
  505.                     End If
  506.  5312             Loop
  507.  5318             mh5223.From = t28_5613.s0
  508.                   If UCase(s5543) <> UCase(s4547) Then
  509.                     mh5223.To = s5543
  510.                     mh5223.Subject = s4543
  511.                     mh5223.Flags = 3
  512.                     mh5223.Network = ""
  513.                     Delay 0.001
  514.                     Print "@0A@Sending '@0F@"; mh5223.Subject; "@0A@' to @0B@"; mh5223.To; " @0A@on@0E@ "; t28_5613.s0
  515.                     Inc i5721
  516.                     Inc i5719
  517.                     Inc i5737
  518.                     AddMessage(mh5223, "listserv.tmp", "", 1213417543)
  519.                     mh5223.Number = l4539
  520.                   End If
  521.  5532             Inc l5705
  522.                 Loop Until l5705 > LOF(2)
  523.                 mh5223.To = s4547
  524.                 mh5223.Subject = "Your message to " + t28_5613.s0
  525.                 mh5223.Flags = 3
  526.                 mh5223.Network = ""
  527.                 Open "sntlst.msg" For Output As 9
  528.                 CurrentTime t5733
  529.                 Print #9, "Your message '"; s4543; "' was sent out to "
  530.                 Print #9, t28_5613.s0; " on "; FormatDate(d5731, "mm/dd/yy"); " at "; FormatTime(t5733, "hh:mm:ss te"); "."
  531.                 Print #9, ""
  532.                 Print #9, "-----"
  533.                 Print #9, "Processed wtih Listserv v2.24 for Wildcat v4"
  534.                 Close 9
  535.                 AddMessage(mh5223, "sntlst.msg", "", 1213417543)
  536.                 Kill "sntlst.msg"
  537.                 mh5223.Number = l4539
  538.                 Open "listserv.log" For Append As 9
  539.                 Print #9, "     "; t28_5613.s0; ": sent "; i5737; " message(s)"
  540.                 Close 9
  541.                 GoTo 1363
  542.               End If
  543.  5876         l5701 = l5701 + 1
  544.               If l5701 > LOF(1) Then
  545.                 GoTo 1363
  546.               End If
  547.  5914       Loop
  548.             Delay 0.001
  549.             Print "@0C@Skipping @0F@"; mh5223.Subject; " @0B@(@07@#@0E@"; mh5223.Number; "@0B@)@0C@..."
  550.             Inc i5723
  551.             Return 
  552.  5981       If (UCase(mh5223.Subject) = "HELP" And Exists("listserv.hlp")) = 0 Then GoTo 6174
  553.             Print "@0A@Found Help Request for Listserv"
  554.             Print "@0D@Sending LISTSERV.HLP to @0F@"; mh5223.From
  555.             Delay 0.001
  556.             mh5223.To = mh5223.From
  557.             mh5223.From = "LISTSERV"
  558.             mh5223.Subject = "Auto Response from Listserv"
  559.             mh5223.Flags = 3
  560.             mh5223.Network = ""
  561.             AddMessage(mh5223, "listserv.hlp", "", 1213417543)
  562.             mh5223.Number = l4539
  563.           Loop
  564.  6174     s4551 = ""
  565.           Kill "templist.sub"
  566.           GetMessageText(mh5223.Number, "templist.sub")
  567.           Open "templist.sub" For Input As 5
  568.           Do
  569.  6229       Input #5, s4551
  570.             s4551 = UCase(s4551)
  571.             i5709 = 0
  572.             i5709 = InStr(s4551, "UNSUBSCRIBE")
  573.             If i5709 = 1 Then
  574.               s4551 = Mid(s4551, 13, 1213417543)
  575.               mh5223.To = s4551
  576.               mh5223.Subject = "UNSUBSCRIBE"
  577.               Return 
  578.             End If
  579.  6333       i5709 = 0
  580.             i5709 = InStr(s4551, "SUBSCRIBE")
  581.             If i5709 = 1 Then
  582.               s4551 = Mid(s4551, 11, 1213417543)
  583.               mh5223.To = s4551
  584.               mh5223.Subject = "SUBSCRIBE"
  585.               Return 
  586.             End If
  587.  6419     Loop Until EOF(5)
  588.           Return 
  589.         End If
  590.       End If
  591.  6431 Print
  592.       Delay 0.001
  593.       Print "@0C@Done sending messages @07@-@0C@ Cleaning up..."
  594.       Delay 0.001
  595.       CurrentDate d5731
  596.       CurrentTime t5733
  597.       Open "listserv.log" For Append As 9
  598.       Print #9, "   Mailing List Messages Sent: "; i5719
  599.       Print #9, "          Total Messages Sent: "; i5721
  600.       Print #9, "              New Subscribers: "; i5725
  601.       Print #9, "                Unsubscribers: "; i5727
  602.       Print #9, "             Messages Skipped: "; i5723
  603.       Print #9, "        Unauthorized Messages: "; i5729
  604.       Print #9, "* Listserv finished on "; FormatDate(d5731, "mm/dd/yy"); " at "; FormatTime(t5733, "hh:mm:ss te"); " *"
  605.       Print #9, ""
  606.       Close 9
  607.       Kill "listtemp.tmp"
  608.       Kill "listserv.tmp"
  609.       Kill "listserv.t2"
  610.       Kill "listserv.ptr"
  611.       Kill "templist.sub"
  612.       Open "listserv.ptr" For Output As 3
  613.       Print #3, mh5223.Number
  614.       Reset 
  615.       Delay 0.001
  616.       Print "@0D@Rejoining original conference..."
  617.       Join i4555
  618.       Print
  619.       Print "@1F@ Thanks for using Listserv "; "v2.24"; "! @07@ "
  620.       Print
  621.